home *** CD-ROM | disk | FTP | other *** search
/ Programming Sound Cards / Programming Sound Cards.iso / sound_52 / wact.ma < prev    next >
Text File  |  1995-01-01  |  873b  |  60 lines
  1. #
  2. # demo of action window type
  3. #
  4. @include /mh/wind.mh
  5.  
  6. action b = {
  7.     note    C    q    200
  8. }
  9. action a = {
  10.     patch   27
  11.     ccont   w    1    10
  12.     bend    w    128
  13.     note    C    q    100
  14.     note     C    q,q    100
  15.     rest    w
  16.     tie    w
  17.     metro    100
  18.     uptempo 1
  19.     downtempo 2
  20.     dxparam 1 2 3 4  
  21.     sig    4    4
  22.     action  b
  23. }
  24.  
  25. action aa = {
  26.     note C q 120
  27.     note D q 120
  28.     note E q 120
  29.     note F q 120
  30.     note G q 120
  31.     note A q 120
  32.     note B q 120
  33.     note HC q 120
  34. }
  35.  
  36. NOCOLS = 5
  37. LSIZE = 5   # max label size
  38. FSIZE = 5   # field size 
  39.  
  40. riff openWindows()
  41.     int wd
  42.  
  43.     void outputWindow(WDEBUG,11,0,23,60,"printf") # halfway
  44.  
  45.      wd = inputMWindow(WACTION, 0, 0, 5+1, NOCOLS*FSIZE+2+LSIZE, "action", 0, 0, 0, &a)
  46.  
  47. end
  48.  
  49. vco testit()
  50.     int i
  51.      void openWindows()
  52.     for(;;)
  53.         for ( i = 0; i < 13; i++)
  54.             void printf("%d %d %d %d %d",a[i][0],a[i][1],a[i][2],a[i][3],a[i][4])
  55.             rest    w
  56.         end
  57.     end
  58. end
  59.  
  60.